COMMENT ⊗   VALID 00002 PAGES
C REC  PAGE   DESCRIPTION
C00001 00001
C00002 00002	A B C D E XPN DMP SYSSAV FINISH NOLOOK XPNFIL DMPFIL CMD1 CMD2 ONEREC FSTREC
C00007 ENDMK
C⊗;
;A B C D E XPN DMP SYSSAV FINISH NOLOOK XPNFIL DMPFIL CMD1 CMD2 ONEREC FSTREC

;Program to save currently running system's core in WAITS.XPN,
;which can then be converted to .DMP format with FILEX.

TITLE SYSSAV

A←1
B←2
C←3
D←4
E←5

;I/O channels
XPN←←1	;output
DMP←←2	;input

SYSSAV:	RESET
	INIT XPN,17
	 'DSK   '
	 0
	 HALT .
	MOVE D,[XPNFIL,,A]
	BLT D,D			;load name of file to write
	ENTER XPN,A
	 HALT .
	MOVEI A,XPN
	SHOWIT A,		;put file on wholine
	MOVSI A,377777
	SETPR2 A,		;map first part of system into upper
	 HALT .
	OUT XPN,CMD1		;write first part of system into file
	 CAIA
	HALT .
	MOVE A,[377777,,200000]
	SETPR2 A,		;map second part of system
	 HALT .
	OUT XPN,CMD1		;write second part
	 CAIA
	HALT .
	MOVE A,[377777,,400000]
	SETPR2 A,		;map third part
	 HALT .
	OUT XPN,CMD1		;write third part
	 CAIA
	HALT .
	MOVE A,[377777,,600000]
	SETPR2 A,		;map fourth part of system
	 HALT .
	OUT XPN,CMD2		;write only first half of fourth part,
	 CAIA			; leaving room for symbols in second half thereof
	HALT .
	INIT DMP,17
	 'DSK   '
	 0
	 HALT .
	MOVE D,[DMPFIL,,A]
	BLT D,D			;load name of DMP file to read symbols from
	LOOKUP DMP,A
	 JRST NOLOOK
	MOVEI A,DMP
	SHOWIT A,
	IN DMP,ONEREC		;read first record, to get symbol ptr
	 CAIA
	HALT .
GSYM:	MOVE B,FSTREC+JOBSYM↑-JOBSAV↑-1 ;get symbol table ptr
	SUBI B,JOBSAV+1		;make ptr relative to dmp file, to read symbols
	HRRZ C,B
	LSH C,-7		;record where symbols start
	USETI DMP,1(C)		;position to read there
	MOVE C,B
	ANDI C,177		;offset within record where symbols start
	HLRE D,B		;negative length of symbol table
	SUBB D,C		;-distance to end of symbols from record start
	HRLZ D,D		;that's amt to read
	ADDI D,FSTREC-1		;where to read in to
	MOVEI E,0		;end of IOWD cmd list
	SUBI C,FSTREC		;make negative of core ending address of symbols
	MOVN C,C		;positive ending address
	CORE C,			;make sure we have enough core for symbols
	 HALT .
	IN DMP,D		;read in symbols
	 CAIA
	HALT .
	OUT XPN,D		;write out symbols at 700000+offset in record
	 CAIA
	HALT .
	TRZ B,777600		;turn symbol table ptr to 700000+old offset
	TRO B,700000		;this is addr in XPN file of symbols
	USETO XPN,1		;position to first record to write out ptr
	SETZM FSTREC
	MOVE A,[FSTREC,,FSTREC+1]
	BLT A,FSTREC+177	;zero the whole first record
	MOVEM B,FSTREC+JOBSYM	;store in proper place in XPN file's first record
	OUT XPN,ONEREC		;re-write first record
	 CAIA
	HALT .
FINISH:	RELEAS XPN,
	RELEAS DMP,
	EXIT

NOLOOK:	OUTSTR [ASCIZ/
Can't lookup WAITS.DMP[S,SYS] to copy symbols.
Type CONTINUE to close output file without symbols./]
	EXIT 1,
	JRST FINISH

XPNFIL:	'WAITS '
	'XPN   '
	0↔0

DMPFIL:	'WAITS '
	'DMP   '
	0
	'  SSYS'

CMD1:	-200000,,377777		;Disk output IOWD
	0

CMD2:	-100000,,377777		;Disk output IOWD
	0

ONEREC:	-200,,FSTREC-1		;IOWD to read/write one record
	0

	LIT
	VAR

FSTREC:	BLOCK 200
;actually, we expand up from here to
;make room for symbols from DMP file,
;thus clobbering user DDT's symbols if they're
;loaded above here.

	END SYSSAV